﻿Public Class fApariencia
    Public defecto As String

    Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBoxEdit1.SelectedIndexChanged
        My.Forms.MDI.DefaultLookAndFeel1.LookAndFeel.SkinName = ComboBoxEdit1.Text
    End Sub

    Private Sub SimpleButton2_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton2.Click
        My.Forms.MDI.DefaultLookAndFeel1.LookAndFeel.SkinName = "Money Twins"
        ComboBoxEdit1.Text = "Money Twins"
    End Sub

    Private Sub SimpleButton3_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton3.Click
        My.Forms.MDI.DefaultLookAndFeel1.LookAndFeel.SkinName = defecto
        Me.Close()
    End Sub

    Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton1.Click
        Try
            UsuariosTableAdapter.UpdateQuerySkin(ComboBoxEdit1.Text, My.Forms.MDI.Iduser.Caption)
        Catch ex As Exception
            MsgBox("Error al establecer el skin al usuario")
        End Try
        Me.Close()
    End Sub


    Private Sub fApariencia_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        defecto = My.Forms.MDI.DefaultLookAndFeel1.LookAndFeel.SkinName
        Me.UsuariosTableAdapter.Fill(Me.DbFireAndIceDataSet.usuarios)
        ComboBoxEdit1.Text = My.Forms.MDI.DefaultLookAndFeel1.LookAndFeel.SkinName.ToString
    End Sub

End Class